home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Hang-Glider.lua < prev    next >
Encoding:
Text File  |  2009-09-27  |  1.8 KB  |  59 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Hang-Glider
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, September 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.hangglider={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.hangglider.gfx_wpn=loadgfx("weapons/hangglider.bmp")                            -- Weapon Image
  13. setmidhandle(cc.hangglider.gfx_wpn)
  14.  
  15. --------------------------------------------------------------------------------
  16. -- Weapon: Hang-Glider
  17. --------------------------------------------------------------------------------
  18.  
  19. cc.hangglider.id=addweapon("cc.hangglider","Hang-Glider",cc.hangglider.gfx_wpn,1)    -- Add Weapon (1 use)
  20.  
  21. function cc.hangglider.draw()                                                    -- Draw
  22.     if weapon_mode==1 then
  23.         setblend(blend_alpha)
  24.         setalpha(0.9)
  25.         setcolor(255,255,255)
  26.         setscale(getplayerdirection(0),1)
  27.         setrotation(0)
  28.         drawimage(cc.hangglider.gfx_wpn,getplayerx(0),getplayery(0)-15)
  29.         -- HUD Info
  30.         hudinfo("Press [Space] to deactivate the hang-glider!")
  31.     elseif weapon_shots==0 then
  32.         -- HUD Info
  33.         hudinfo("Hang-glider will be activated automatically when falling!")
  34.     end
  35. end
  36.  
  37. function cc.hangglider.attack(attack)                                            -- Attack
  38.     if (weapon_mode==0) and (weapon_shots==0) then
  39.         if getplayeryspeed(0)>6.0 then
  40.             -- Use weapon and allow to use another one afterwards (1)
  41.             useweapon(1)
  42.             -- Activate
  43.             weapon_mode=1
  44.             weapon_shots=1
  45.         end
  46.     end
  47.     -- Control fallspeed if hangglider is active
  48.     if (weapon_mode==1) then
  49.         -- Disable hangglider
  50.         if attack==1 or getplayeryspeed(0)<1.0 then
  51.             weapon_mode=0
  52.         end
  53.         if getframesleft()<=1 then
  54.             weapon_mode=0
  55.         end
  56.         -- Control fallspeed
  57.         playerpush(0,getplayerdirection(0)*2.0+getwind()*5.0,1.0,1)
  58.     end
  59. end